home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 167 / Tiger_Disk_167_19xx_Tiger-Crew-Disk_de_Side_A.d64 / ende c_101 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  460b  |  11 lines
  1. 10 print"[147]":poke53280,.:poke53281,.:poke56325,2:
  2. 20 forl=1to20:forx=40to20step-5 :poke781,l
  3. 30 poke646,(rnd(1)*l+1):
  4. 40 print"[157][157][157][157][157][157][157][157][157][157][146]    ",
  5. 50 print"[160][160][160][160][160]             ende [146][145]":print"          [192]ende[192] [145]" :sys59903:
  6. 55 s=54272:pokes+4,17:pokes+1,l:pokes+24,x:pokes+6,234:pokes+4,16
  7. 60 next:printtab(x)"                ",:printtab(16)">[192]ende[192]<"::print"[145][145]":next
  8. 1000 poke56325,.:poke53280,.:poke53281,.:pokes+4,129:pokes+1,15:pokes+4,16
  9. 1001 print"[147][152][169][205][155][214][152][206][223][157][157][157][157][151][213][155]v[151][201][145][212][148][157][157][157][157][157]  lukian"
  10. 1002 poke56325,51:fort=1to444:next:sys2048
  11.